1 REM"STEVEN DARNOLD, P.O. BOX 201, ALEXANDRA  NEW ZEALAND[141]
10 [151]53280,11:[151]53281,11
90 [153]"RETURNLOADPRINT";:[141]100:[137]130
100 [153],"                       "
110 [153],"  S P E E D - R E A D  "
120 [153],"                       ":[142]
130 K$[178]" S C H N E L L - L E S E N            VON                MAX YODER"
140 K$[178]K$[170]"                            DEUTSCHE UEBERSETZUNG              "
150 K$[178]K$[170]"VON                > TIGER-CREW <        "
160 [129]I[178]1[164]1000:[130]
170 [129]I[178]1[164][195](K$)[169]2:[153]"":[153],""[202](K$,I,23):[129]J[178]1[164]120:[130]:[130]
180 [153]"";:[141]100
190 K$[178]"STOP^":N[178]12
200 [134] P$(20):[134] V$(20)
210 [134] N$(20):[134] LW(40)
220 [153]"SYSDIESES PROGRAMM TESTET DEINE FAEHIGKEIT  DES SCHNELLEN LESENS."
230 [153]"PRINTDIE SAETZE SIND EINFACH, ABER ETWAS      > ALBERN <.
240 PRINT"DER SINN IST ES, DIE SAETZE IN DER       KURZEN ZEIT ZU ERKENNEN.";
290 T=50
310 X$=" "
330 FOR I= 1 TO N
340 READ N$(I)
350 N$(I)=N$(I)+X$:NEXT
360 FOR I= 1 TO N
370 READ P$(I)
380 NEXT
390 Z=0:FORI = 1 TO 14
400 R1=INT(2*RND(1))+1
440 READ V$(I)
450 V$(I)=V$(I)+X$
460 NEXT:PRINT"                  DRUECK  SHIFT[146]":WAIT653,1
470 R1=INT(12*RND(1))+1
480 R2=INT(14*RND(1))+1
490 R3=INT(12*RND(1))+1
500 R4=INT(2*RND(1))+1
540 A$=N$(R1)+V$(R2)+P$(R3)
550 L=LEN(A$):W1=L/5
560 PRINT"[147][158]":FOR I= 1 TO 1000:NEXT
570 PRINTA$
580 TI$="000000"
590 IF TI<T GOTO590
600 PRINT"[147]"
610 PRINT"[153]WIE HIESS DER SATZ ?"
620 INPUT"[160][160][160][157][157][157]"; D$
630 PRINT"[147][158]DU SAGTEST:"
640 PRINTD$""
650 IF A$=D$ THEN COMP=100:GOTO750
660 FOR I=1 TO L+1:M$=MID$(A$,I,1):N$=MID$(D$,I,1):IF M$=N$ THEN LC= LC+1
670 IF M$<>N$ THEN LW=LW+1:LW(I)=I
680 NEXT I
690 PRINT"DER SATZ HIESS :"
700 PRINTA$
710 FOR I= 1 TO L+1
720 IF LW(I)=I THEN PRINTTAB(I-1);K$"[145]"
730 NEXT I
740 COMP=INT(LC*100/(L+1)):GOTO760
750 SC=SC+1:IF INT(SC)=.25*INT(SC*4)THEN SP=SP+1
760 PRINT""
770 PRINT"[153]DEIN >TEMPO<"INT(14400/T)"WOERTER PRO MINUTE BEI
780 [153]" ERKENNEN VON "COMP"%"
790 [129] I [178] 1 [164](L[170]1):LW(I)[178]0:[130] I
800 [153]"DRUECK 'NE TASTE :WAIT"
810 [153]" SWAITONCMDTOCHNELLER  LWAITONCMDTOANGSAMER   KWAITONCMDTOEINE AENDERUNG
820 POKE198,0:WAIT198,1:GETA$:IFA$="L"THENT=T*1.15
830 IF A$="S" THEN T=T*.91
840 L=0:LC=0:LR=0:COMP=0:T1=0:PRINT
850 GOTO470
860 DATADAS PFERD,DAS KAMEL,DAS HUHN,DIE KUH,DIE MAUS,DIE RATTE,DAS SCHWEIN
865 DATADAS TIER,DIE FLIEGE,DIE GANS,DIE ENTE,DIE FRAU
870 DATADIE TUER,DIE LAMPE,DAS BETT,DIE KANNE,DAS HAUS,DAS AUTO,DAS HEMD
875 DATADIE KATZE,DAS SCHWEIN,DAS KIND,DAS KROKODIL,DAS BABY
880 DATASPRINGT UEBER,BADET,KAUFT,SCHLAEGT,SUCHT,VERLIERT,HOLT,WIRFT
890 DATA BRINGT,WAESCHT,STREICHELT,FAENGT,KUESST,VERKAUFT